##-----------------------------------------------##
## Set up the Connection to Oracle
##-----------------------------------------------##

$ENV{'ORACLE_HOME'}="/u01/app/oracle/product/9.2.0.";

open(IN01, "<$HOMEDIR/.LogonInfo");
   while (<IN01>) {
      chop;
      ($user, $pwd, $srv) = split(/:/,$_,3);
      }
close(IN01);

$srv1 = $srv;
$srv1 =~ tr/a-z/A-Z/;

#$ora = "dbi:Oracle:host=scordev4.nsc.com;sid=SCORDEV4" ;
$or1 = "dbi:Oracle:host=";
$or2 = ".nsc.com;sid=" ;
$ora = $or1.$srv.$or2.$srv1;

$dbh = DBI->connect($ora, $user, $pwd ) or DBI::errstr ;

##-----------------------------------------------##
